Animation of Tan(x)

circlePts[θ_]:= 
	Graphics[{Circle[{0,0},1],{Hue[0.6],Thickness[.014],Line[{{0,0}, {Cos[θ],Sin[θ]}}]}, {Hue[0],Thickness[.014],Line[{{1, 0}, {1, Tan[θ]}}]}, {Hue[.6], Line[{{0, 0}, {1, Tan[θ]}}]}, {Hue[.6], Line[{{Cos[θ], 0}, {Cos[θ], Sin[θ]}}]}, {Hue[0],PointSize[.03],Point[{Cos[θ], Sin[θ]}]}, 
{Hue[0],PointSize[.03],Point[{1, Tan[θ]}]} },AspectRatio -> 4/3, Axes -> Automatic,Ticks ->{{-1, 1}, {-1, 1}} ,PlotRange->{{-1.5, 1.5}, {-2,2}},Epilog->Text[StringJoin["θ = ", ToString[θ,TraditionalForm]], {-1.2, 1.5}]]

tanPlot[θ_]:=Plot[Tan[x], {x, 0, 2π},  Ticks->{{0,(π/2),π,((3 π)/2),2 π},{-1, 1}},PlotRange ->{-2, 2},
		AxesLabel ->{"θ", None},AspectRatio->π/2,Epilog->{{Hue[0],PointSize[.04],Point[{θ, Tan[θ]}]},
 {Hue[0],Thickness[.014],Line[{{θ, 0}, {θ, Tan[θ]}}]}, Text["y=tan(θ)", {5.8, 1.8}]}]

Manipulate[GraphicsRow[{circlePts[θ],tanPlot[θ]}], {θ, 0, 2π, (π/12)}]